
unit SaveSff;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFormSaveSff = class(TForm)
    radioPaletteType: TRadioGroup;
    buttonSff: TButton;
    buttonCancel: TButton;
    procedure buttonSffClick(Sender: TObject);
    procedure buttonCancelClick(Sender: TObject);
    procedure radioPaletteTypeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSaveSff: TFormSaveSff;

implementation

uses
sprites;

{$R *.dfm}

procedure TFormSaveSff.buttonSffClick(Sender: TObject);
begin
    if ( FormSprites.openFiles.Execute ) then
    begin
        FormSprites.ArqSFF.saveToFile( FormSprites.openFiles.FileName);
        Close();
    end;
end;

procedure TFormSaveSff.buttonCancelClick(Sender: TObject);
begin
  Close();
end;

procedure TFormSaveSff.radioPaletteTypeClick(Sender: TObject);
begin
    FormSprites.arqsff.header.paletteType := radioPaletteType.ItemIndex;
    Close();
end;

end.
